home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / popscren.arc / SCREENS.TYP < prev   
Text File  |  1985-09-10  |  756b  |  20 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2.  
  3.      A variable of type "SCREEN" is exactly the same "shape" as
  4.      the video screen memory when in text mode.  This type is
  5.      used in several programs, so it is stored separately and
  6.      called as needed, to avoid the problem of multiple declarations.
  7. }
  8. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  9. type
  10.   ScreenLoc  = record
  11.                  character : char;
  12.                  attribute : byte;
  13.                end;
  14.   ScreenLine = array[1..80] of ScreenLoc;
  15.       Screen = array[1..25] of ScreenLine;
  16.     LineType = string[80];
  17.   var
  18.     Mono    : Screen absolute $B000:$0000;
  19.     Colo    : Screen absolute $B800:$0000;
  20.